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#### SOFTWARE REVUE wee PRINT PACTCRY by Byte Power 


"Print Factory" by Byte Power. You may be aware of Byte Power Tape 
` Magazíme, started in Canada a few years back by Kris and Eric Boisvert, 
or you may not. Anyway, they have been producing software, games and 
utilities for TS-2068, And for the last 3 or 4 issues Spectrum Emulated 

2068's, for the last 3 years. 

During this time their programing skills have stéadily improved. 

Even early tapes had good to very good stuff, both games and utilities. 
I have been using their mailing label program for about two years for our 
club newsletters (LIST Long Island Sinclair Timex Users Group). Also 
published were utilities for Larken disk drive system that I find very 
usefull. Back issues should be avilable for about $6 each. 

They now are producing utility software sold Separately from the 
magazine format. The latest is PRINT FACTORY. If anyone is interested in 
desktop publishing on the TS-2068 then this set of programs is a must have 
item. The set contains 3 tapes of programs to do desktop functions and 
contains special programs to help with the main task. There are things 
like "FIRST EDITION" to produce posters, letterheads, newsletters, ads, 
etc. This includes a graphic design file. The "PRESS", which is a page 
maker that handles screens instead of graphic designs, can load and merge 
Screens in the document and you can use four different Fonts and mix them 

as you wish. Also they're a "LETTER PERFECT" a proportional printing 

word processor for printers that do not have NLQ or redefinable fonts, 

it also can load a cursive character set. There is also a nifty "LABELER" 

program that is great for labels for such things as disks or addresses. 

-YOU can havea"Banner" Printed for large or small printers (TS 2040). Also 
there is a "Card Maker”, one that really works. These are the main programs. 
There are also things to help you such as "QuidcScreen" for the "Press", 
the "File Keeper" to produce your own custom libraries to be used in "First 
Edition" etc., the "Translator" to convert "Lemke" icons to print factory 
format, the "Creator" lets you manipulate or create files and 13 super 

Sets of Fonts. 

I hope this review is somewhat helpful. The bottom line is, these 
are super programs for our favorite computer. The only thing I would have 
to say is to get the most benefit from these great programs, you should 
really have a disk drive, then you will have to convert them from tape to 
disk yourself. 
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TIPS 


CASSETTE LOADING HINTS FOR TIMEX COMPUTERS 
By: John Bell 


The most annoying problem I have had with my 
T/S 1000 is not being able to load programs. 
If you have tried all the suggestions in the 
manual and still have problems, try the 
following techniques. Using them I get a 
good load on the first try nine times out of 
ten. 

“Save your programs on a quality tape. 
Sixty-nine cent specials may work, but why 
take chances? I use any quality 45 minute 
normal bias cassette tape. (Maxell, Memorex, 
TDK, etc..) 

“Try another tape recorder. Some really do 
work better than others. I've found the 
pocket síze machines usually won't work, 
-Keep the cassette recorder clean and demag- 
netized. A cassette type demagnetizer works 
fine. Clean the tape heads and pinch roller 
by hand. Perform these procedures every five 
to ten hours operatíng tíme. 


-Run the, tape recorder off batteries. Don't 
use Nickle-cadmium rechargeable cells. They 
only put out 1.2 volts compared to 1.5 for 
regular batteries. That's over a 1 volt drop 
for the average tape recorder! 

-Keep the computer, tape recorder and cas- 
sette tapes at least two feet away from the 
television, especíally when you turn it on. 
Electrical fields from the set can magnetize 
tape heads and change bit patterns on program 
tapes. 

“The use of a tape loading device might help. 
See T/S HORIZONS, issue 3 for plans, or one 
can be purchased commercially frow several 
sources, TSH 
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18 LET A=INT iRNDx2551 
1i LET HizINT (RND+151 
12 LET AE=INT iRNDs255; 
22 LET ASZINT (RNDE15) 
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b BEEP ,1.25 
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EN GO TO 3848 
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3120 ERINI AP" 

NT RT 16,7; US;AT 17,7;m 
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3138 PRINT AT 3,2; BRIGHT 1;m 
3140 PLOT 0,0: DRAU 255,0: RAU 
0,175: DRAW -255,0: DRRU 0,-175 
3398 GO TO 1000 

4000 REM ME 

4005 IF CODE a512)>103 OR CODE a 
$(2) «87 THEN GO TO 1000 
4007 LET st=1 
$083 IF 35 (CODE 25(2)-96).=" 

" THEN GO TO 4025 
£010 IF 95(CODE 358(2)-96)<>" 

" THEN INPUT “New Fi le (YJ /Updat 
& Oldin):";t$: IF tg="y" THEN GO 
TO 4025 
4012 LET st=1 
4015 FOR w=1 TO 12 
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HEN LET $tzw: GO TO 
1020 NEXT w ۱ 
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N GO TO 4150 
4140 NEXT a 
4150 PRINT RT 20,8;" 
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5059 PRINT AT 20,8;"HO file at:" 
,CHR$ (CODE a$(2)-32): PAUSE 100 
: PRINT AT 29,9;" a 
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S110 11 ="2" =p2 
5120 3“ =p 3 
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7020 FOR ez17 TO 20 

7025 PRINT AT €,3;CHRS (48+8);"- 
“¡as (e-16) 

7030 PRINT RT e,12;CHR$ (S2+e);" 
-"5395(€-12) i 

7040 PRINT RT e,21;CHR$ (S6+e);” 
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“a Ph: 
20 FRHUZE Z CLS Û TO 938900 
60 FOR u=50 TO 159 STEP 10 
6S PLOT 56,u: GRAY 159,0 


100 REM 
105 LET 
110 FOR 
129 LET 


135 LET 
=m: LET 
-140 FOR 
159 PLOT 
16S LET Ler AS 
1 
173 CSA -13 
172 IF L.X 
R+P 9ج‎ 
175 HEX 
133 HEX 
199 GO 
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1001 P 25 
1835 LET cs QF 3F : 
2919: 0N ERR RESET : INPUT “enter 
initruction code:":a2: IF LEN a 
$i2 Ur LEN as$5zZ 1019 
LOIS IF a$z"st tE 
1029 IF -&z"in" THEN GO TO 3100 
1030 IF as="<1" TREN GO TO 3009 
1040 IF a&(1)z"z" THEN GO TO 400 
0 
1050 IF así(l)z"1" OR 25(1)="2" Û 
R 35(11="5" THEN GO TO 5000 
1000 IF تھے‎ THEN SAVE C$ LIN 
E sid 
1025 IF مب پت‎ THEM VERIFY cs 
1970 IF ag="Fl" THEN GO TO 7000 
1050 IF asz"co" THEN COPY 
1050 Ir azz'"mx" THEN GO TO 2060 
1023 IF azz'"nt" THE INPUT "Titl 
eT: "ths: IF LEM hs>22 THEN GO TO 
i0-2 
10559 IF a&£z"nt" THEM PRINT AT 1, 
S5" “AT 1 
Sihs 
2080 GO TO 1009 
cco FEM MAT و‎ 
C10 INPUT "Enter New Max Value" 
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3050 GO SUB ۵ج‎ 

3050 PRINT AT 17,1;"Plot:";AT 18 
,0;"1-";RT 19,0;"2-";RT 20,0;"3- 
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9135 PRINT “This Will save GPGP 

With Files." 
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ar plats," ` 

9210 PRINT '"Enter ""in"" to see 
instructions." 

to 
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$220 PRINT FLASH ۰ Press EN 
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2250 PAUSE a 

9260 IF IHKEYS$z"C" THEM COPY 
5300 GO TO 3000 
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7050 NEXT e E 
7060 PLOT 0,52: DRAW 255,0 
7070 GO SUB 8300 
7075 PRINT AT 0,10; BRIGHT 1j" F 
ile Values " i 
7039 FOR d=1 TO 12 
7035 LET vzdxa : 
7050 PRINT AT 244d,1;0l5(v) 
7100 PRINT AT 2«d,2;(0& (v) 
7110 PRINT AT 2«d,3;n5&(v); 
ا‎ HEXT d 
arcu PRINT HT 16,12; BRIGHT 1;" 

iles: 


7160 PLOT 0,164: ORAN 255,0 
q IF c>=29 THEN GO TO 700A 
205 INPUT “Enter file (A-L):";0 
5: IF CODE وع‎ 97 -OR CODE 05,103 
THEN GO TO 7205 
7220 PRINT AT 2,¢;CHRS (CODE o$- 
="; 9$ (COCE 05-90) 
ð FOR q=1 TO 12 
IF giCODE c- 35,4) =5 THEN F 
HT 4*-2,c;"0"; GO TO 7270 e 
¿9 (CODE 05-965 


MEXT q 

LET c=c+9 

PLOT 255,0: ORAU 0,175 

BO INPUT "(i)-Fite; (Cc) -Copy; ip 
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7305 f&z"s" THEN STOP 

7310 IF r$z"ií" THEN GO TO 7200 
7320 ‘IF rgz"c" THEN COPY 

73399 IF cg="P" THEN GO TO 3000 
7340 IF.rzz"in" THEM GO TO 9100 


7350 GO TO 7300: 

8040 PRINT AT 4,1;"Files." 

3069 FOR n=S TO 16 

8080 PRINT AT n,0; cHRS (604n);"- 
“¿AT n;2;9$in-4) 

8100 NEXT n 
3200 RETURN 

8308 PLOT 0,0: DRAW 255,0: DRAW 
0,175: DRAW -255,0: DRAU 0,-175: 
RETURN 

9000 REM BEAR 
$810 DIM 3(12,12) 

9015 DIM 35 (12,5) 

9020 LET pl=d4: LET p2=49: LET p 

3253: LET m=100 

9030 LET l$=" JFMAMIJJAS 


9040 LET mÁ$z" ae a pauuge 

coo 

9850 LET n$z" n br ly n Ut p 
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39060 LET LIT POE, 

9070 LET hs$z"Entefr your title.” 
9060 LET sz-.1 

$100 CLS E 
3110 PRINT FLASH 21 Instr 
uction Codes: " 

9140 PRINT "Enter ""&(a-L)"" TO 
"Load a rite. 

9150 PRINT ' "Enter "U"l-S(a-l)"" 
to plot a file. 


9155 PRINT "(1-3) is the positio 


n ptoted,." 
9150 PRINT '"Enter ""nt"" for a 
neu name." "E 
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GO TO 1000 


TRY THIS 
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Lani 


NEXT 
GOSUB 360 
GOSUB Saa 


wy 
PP po pa ps HP 


eh 


J TNF RN) ra QIN O VOU FL ya 


$ 
IF NOT Dgan THEN GOTO 230 
GOSUB Se 
IF S5521 THEN GOTO 308 
IF S=21 THEN GOTO 230 
GOTO 170: 
LET U=<a 
GOSUS 600 
A 
IF 215 Hen GOTO 268 
IF T>21- THEN GOTO 348 
IF T«S boo" GOTO 340 


01,25: 1 
i78 PLOT ج, ۶ے‎ 
00 IF U=59 THEN LET U=82: Go To 
199 NEXT y 
258 LET A=T«230%PI 
250 LET MX=50%5IN n 
2780 LET HY=50:4003 A 
288 PLOT 54,98 
258 OVER 1: DRAN HE HY 
295 IF Tri2=INT (Tis) THEN Go «o 
SUB 340 340 PRINT “WOU YOU UON" 
` 300 LET T=T+1 350 GOTO 310 
319 PLOT 54,39 360 FOR J=1 TO 10 
i PEL 85-۲ کے پر یتے/‎ 370 LET نی مسج‎ car 
2 MX=50%=3IN A 3580 FOR Usi 
3 LET MY=50%003 A 360 IF XzD(U) THEN GOTO 370 
Û QUER 1: DRAN HX,HY 420 NEXT یا‎ 
a 2 TO 118 410 GOTO 430 
x ; 420 LET XzX-13 
430 IF X»13 THEN GOTO 420 
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o 
FOR Zsi TO 8 
IF UzZ THEN GOTO 670 
PRINT gho P0) 
GOTO 680 
حم‎ PiZ),C(Z) 
LET S=S+P(Z) 
LET OS Petes 
NEXT 
IF Ve 1 THEN GOTO 7se 
PRINT S,T 
GOTO 758 
PRINT S,CHR$ (18) 
PRINT 


RETURN 
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CLEAR 62999: BORDER O: FAFER 0: INF 7: 


1 CLS : PRINT "DO NOT STOP TAFE YET!" 

2 LET t=255: LOAD ""CODE : RANDOMIZE USE &SOU0: GO SUB 70: FOR 1=0 TO 79: REA 
Dh: FOLE t(ti*zS6ttorgo,h: NEXT 1: FOUE 23632,0 

3 CLS : FKINT "Turn on printer and press a key." 

4 PAUSE O 

$ LET est: LEI c=u 

7 LERINT CHES 275 "m"; CHR} 4;UHR9 27; "W1"; CHES 27; "A";CHRS Bj: REM Cm"  CHRS 4 


)zenable graphics chars, ("W1")=Expanded mode, ("A"¡CHES B)=linefeed to 8/72 


10 LET a=13 


11 INFUI "Enter type that you want (Bold,Modern, Italics Regular) "'z$: LET z$ 
=2$+"1" 

12 INPUT "Enter your message-"'as$ 

13 PRINT “Press return to print": FAUSE o: LET c$="B" 

14 LET p$=CHRE® 139: LET g$-" " 

15 IF a$- OR g$-"" GR p$-"" OF acl OR 16ھ‎ OR (c$co"c" AND c$C»"C" AND csc?" 
t" AND c$:2"T" AND c$zo"b" AND 2%: 2"B") OF (29: "BI" AND z$i»"bl1" AND 2$<>"M1" 


5 
2 


AND z$<>"mi" AND z4< "11" AND z$:2"11" AND z9.2"K1" AND z$«^"r1") THEN GO TO 
16 GO SUB 17: GO SUB 1% GO TO 10 
17 LET z=VAL z$: GO SUb z: CLS : FÜKE 23622,0: LET vzzlNT ((a/4)*C(1 AND a<>4 ^ 
ND a<28 AND a<212 AND ax 51673): IF (c$52"b" AND c$<>"B") AND a:12 THEN LET ez3- 


-(vz$Bo): IF (c$="c" Ok c$-"C") AND a-13 THEN LET eze-(Ce/2) 
18 RETUKN 
13 LET c$z""; FOR d=1 TO e: LET c$-c$*" ": NEXT d: LET hs=g9(1): LET q$-7p$t1): 
FOR v=1 TO ve-1: LET g$-g$*h$: LET p$-p$*q$: NEXT v 
20 FOR j=} TO LEN a$: IF a$(j»-" " THEN LPRINT : LPRINT : LFRINT : LPRINT : | 
PRINT : LPRINT : NEXT j: RETURN 
21 LET cosFEEK 23693: PORE -36323,1NT (20/8483 PRINT AT z1,0;a$(j): LET a$="": 
PORE 23693,co 
30 FUE c=0 TO 7: FOR r=0 10 7 
35 IF POINT  تررر رخ‎ THEN LET x$-x$*ps:; GO TO 43 
40 LET »$9-2»$*9$ 
45 NEXT r: NEXT c: PRINT Al ai 
50 LET nzzvzc£&d*1: LET s-v-4 LET g.:-v2t&4: LET y3=s-1 
55 FÜR g=1 TO g- STEF s: FOF n=1 TO nz-a: IF xg TO g+g3»=" 
" THEN GU TO SY 
57 LFFINT c#;x%(g TO g*gZ2?: FEINT c$5;»$ig TO g*gz? 
59 NEXT n: NEXT g: LERINT : LERINTI : LPRINT : NEXT y: RETURN 
65 PUKE 23607,60; RETURN 
EE LET typ=2: FOLE 25618,08: FORE 296193,0: FORE 23€20,2 
67 LET typs1: FOKE Z3618,6ü: FURE 13619,0: FORE 24620, 2 
EB LET typ-2o: kANDOMIZE USK (torgázS6*s2-typo: PORE Z32G607,torg-4: RETURN 
70 LET torgzz55: LET rz&5: LET ۲1٣ LET b=66: LET bl=bs LET m=67: LET mlsm: 1 
ET 1-68: LET 1121 
75 RETURN 
Bo DATA O,0, 121, 203) 99% LOG, راج‎ OU, 21, وڈڈے‎ 2,61»17, 0» torg-3 


30 DATA 110,3, 126, 2448003 63, 24) 44, 230, 112 2437121, 230, 7, 203, 33, SO, AO, رککے‎ 
126, 24, 30, zd, zB, + 1654, 14, ہو‎ 14, Z4, 20, 24, 18, Z4, من‎ 200, £3, 203, 63, 24, 10, 203, 39 2 
03,3 4,4, 183, 203, SI) 182, 18, 25, 19, 11, 120, 177, 32, 1396, لے‎ 

105 RETURN 
9999 SAVE "BANNER" 


LINE 0: SAVE “DRIVER"CUDE 63000, 800 


eee 


' 


‘ 


ص 


ALIGNMENT TAPE = SCREWING YOUR HEAD ON STRAIGHT 


ALIGNMENT 


Here's a prototype for a TS 2068 tape head alignment program. We're filling 
an array, AS, with first "" (or nothings) and then COPY (or 255). The idea 
is to get first a string of "f"s and then a string of '1's onto our test tape. 


Note that 255 is FF(hex) or: 11111111 Binary. 


eo. It 


You could make the program run even longwby DIMing A$ to 30,000, or 
should work for 2X81's too, but you'll have to DIM A$ a bit smaller. 


Enter the program, as shown, and then RUN it. The data has nov been placed in 
array AS. Now, using your most reliable tape recorder, SAVE the program a few 
times. (You-could even do this from within the program, and use an autorun to 
make it "load", several times too). You have now created a tape which has data 
recorded on ít by your "best" machine and you know what the data means, Did 
you notice the distinct pattern differences your new "alignment" tape made on 
the TV as you eaved 7٤۶ 


When you play your tape back on another (suspect) machine observe the pattern 
for the same lines. If they don't look the same you knov you have an alignment 


problem. 


Adjusting the alignment is done vith a small.Phillip'e head screwdriver. Put 
your alignment tape in your tape recorder and press "play". "LOAD" the program 
into your computer and observe the screen. With the player running, insert your 
screvdriver into the small hole next to (usually on the left of) the recording 
nead and begin to adjust the screw first one way and then the other. The screw 
is often coated with a small amount of red "nail polish" to both secure it and 
show signs of tampering. Only small adjustments should be necessary. 


, you vill be able to see the actual data pattern and 
can adjust for maximum gain (V5 v pp). Next best is a "Wink y Board",and íte 
indicator LED. Finally, you could even use your ear to lieten for the maximum 
sound level, as you turn the screw. Hook up an earphone in parallel with your com- 
puter using a "Y" adaptor in order to this. At least one of these methods should 
be used in conjunction with observing the loading pattern. 


“If you have an oscilloscope 


serve as a reference point for your system. If you ever have to 
realign your heads in order to load a tape, made on another machine, you can alvays 
get "back" to your ideal alignment using this tape. Do remember that the tape is 
made on your best machine and this still doen't quarantee perfect "universal" 
alignment (1.e., with other peoples recorders). 


This tape will 


1 DIM ”جج ) ؿ3‎ 
10 FOR i-1 To 1=0 T 
ES MEXT P. "7 REOS 
Te, FOR ہے دے‎ —- =A 
i!a" COPY "; MEKT , OOO: LET asi 
30 ۶ nS 
OR: 
1 DIM وت‎ 
10 FOR i=] Th 
NET l 1 TO 4500: LET a$ii:e 
EO FOR zá4tte TO S 
iy COPY a NEST. ene VET, Ci P 


